#!/usr/bin/perl

while(<>) {
	die unless m{^\s*\|\s*
		[0-9a-f]+\s+
		(([0-9a-f][0-9a-f]\s\s?)+)}x;
	print map { chr(hex($_)) } split(/\s+/, $1);
}
